home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
games
/
egavga
/
batwar.arj
/
BATWAR3.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-06-14
|
65KB
|
1,485 lines
DECLARE SUB intro ()
DECLARE SUB SparklePause ()
DECLARE SUB Erink ()
DECLARE SUB Slime ()
DECLARE SUB mountain ()
DECLARE SUB town ()
1 CLS
intro
PRINT " Press enter to play or enter code to continue"
INPUT n$
IF n$ = "Jurassic Park" THEN 2000
842 PRINT " "
PRINT " ___ "
PRINT " /--/\(0 0) "
PRINT " / / \ ^ ) "
PRINT " / /* \__) "
PRINT " /__ /___\[ "
PRINT " ( ) /\ [ / "
PRINT " ( ) / \__[__/ "
PRINT " [ ]/ [ "
PRINT " ( ) / \ "
PRINT " (__) / \ "
PLAY "AAAABBBCDE"
PRINT " "
PRINT "Press 1 to continue"
INPUT a
IF a = 1 THEN 843
END
843 PRINT "Press 1 to attack Elliott"
PRINT "Press 2 to talk to Elliott"
PRINT "Press 3 to run"
INPUT a
IF a = 1 THEN 844
IF a = 2 THEN 850
IF a = 3 THEN 847
844 PRINT " You decide to attack Elliott right away......"
PRINT "Press 1 to continue"
INPUT a
IF a = 1 THEN 845
END
845 PRINT " Before your sword hits Elliott shoots you, and you die."
PRINT "Press 1 to continue"
INPUT a
IF a = 1 THEN 846
END
846 CLS
PRINT " "
PRINT " __________ "
PRINT " [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @[ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " /__________ "
PRINT " @-[ \ "
PRINT " \---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " / "
PRINT " /__________ "
PRINT " @--[ \ "
PRINT " \---------\ \ "
PRINT " \ \/ "
PRINT " "
CLS
PRINT " / "
PRINT " __________ "
PRINT " @---[ \ "
PRINT " ---------\ \ "
PRINT " \ \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @--- [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @-- [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @- [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
SOUND 650, 25
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [ ] - Your chest "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
1023 PRINT " Press 1 to attack"
INPUT a
IF a = 1 THEN 1031
END
1033 RANDOMIZE TIMER
J% = INT(RND * 3) + 1
LET z = b% + c% + d% + f% + g% + h% + J%
PRINT " You drained "; J%; " and "; z; " total HP."
IF z > 15 THEN 2000
IF z < 15 THEN BEEP
PRINT " Elliott attacks!"
RANDOMIZE TIMER
u% = INT(RND * 6) + 1
LET x = a% + e% + i% + o% + y% + u%
IF x > 20 THEN 680
IF x < 20 THEN BEEP
PRINT " _________ "
PRINT " [ ] "
PRINT " [ ] - Your chest "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] @ "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [ ] - Your chest "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] @ "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [ ] - Your chest "
PRINT " [ ] "
PRINT " [ ] @ "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [ ] - Your chest "
PRINT " [ ] @ "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [ ] @ "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [ ]@ "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [ @ "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [ @] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ \ ]/ "
PRINT " [ @] - OUCH!!!!! "
PRINT " [ / ]\ "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
SOUND 650, 25
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " /[ @]\ "
PRINT " / [ ] \ "
PRINT " / /[ ]\ \ "
PRINT " \/ [ ] \/ "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " /[ @]\ "
PRINT " / [ ] \ "
PRINT " \/[ ]\/ "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " /[ @]\ "
PRINT " \[ ]/ "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [ @] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [\ @] "
PRINT " [/ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
PRINT " "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [__ @] "
PRINT " [__] ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [__ @] "
PRINT " [__] ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
CLS
PRINT " _________ "
PRINT " [ ] "
PRINT " [___ @] "
PRINT " [___] ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [ ] "
PRINT " [________] "
CLS
PRINT " _________ "
PRINT " \[ \ "
PRINT " \___ @\ "
PRINT " \__] \ "
PRINT " \ \ "
PRINT " \ \ "
PRINT " \ \ "
PRINT " \________\ "
CLS
PRINT " "
PRINT " You are dead!!! "
PRINT " "
PRINT " "
PRINT " "
PRINT " "
PRINT " "
PRINT " "
GOTO 680
847 PRINT " You decide to run away."
RANDOMIZE TIMER
a% = INT(RND * 9) + 1
IF a% > 8 THEN BEEP
IF a% < 8 THEN 851
851 PRINT " You don't make it!"
GOTO 842
PRINT " You run away!"
PRINT "Press 1 to go back into battle"
PRINT "Press 2 to teleport to Erink's Cave"
PRINT "Press 3 to teleport to Alexander's home"
PRINT "Press 4 to teleport to Kinweke"
INPUT a
IF a = 1 THEN 842
IF a = 2 THEN BEEP
IF a = 3 THEN BEEP
IF a = 4 THEN 848
PRINT " All around are the armies. There was no point in teleporting to "
PRINT "anywhere around Ogausis. The armies instantly kill you. "
GOTO 680
848 PRINT " You teleport to Kinweke. You tell John what has happened."
849 PRINT " 'You better get back there and defend Ogausis,' he told you."
PRINT "Press 1 to teleport to Ogausis"
PRINT "Press 2 to stay here"
INPUT a
IF a = 2 THEN 849
IF a = 1 THEN 842
850 PRINT " 'Why are you attackingt me?"; you; ask; Elliott.
PRINT " 'You are the one most likely to destroy us. You are the one that "
PRINT "must die first. I have heard of what you have done. "
PRINT " 'Why don't you change sides? Together we would be unbeatable.'"
PRINT " 'Naaaah,' said Elliott. 'Let's fight!'"
PRINT " You encounter the Elliott"
PRINT "Press 1 to continue"
INPUT a
IF a = 1 THEN 855
END
855 PRINT "Press 1 to attack"
INPUT a
IF a = 1 THEN 856
END
856 CLS
PRINT " /\ "
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
PRINT " / / "
PRINT " /-------------/ /----- "
PRINT " < ] "
PRINT " \-------------\ \----- "
PRINT " \ \ "
PRINT " \/ "
CLS
SOUND 650, 25
RANDOMIZE TIMER
b% = INT(RND * 3) + 1
PRINT " You drained "; b%; " off of Eliott so far."
PRINT " Elliott attacks with shot gun!"
PRINT " Press 1 to continue"
INPUT a
IF a = 1 THEN 560
END
560 CLS
PRINT " "
PRINT " __________ "
PRINT " [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @[ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " /__________ "
PRINT " @-[ \ "
PRINT " \---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " / "
PRINT " /__________ "
PRINT " @--[ \ "
PRINT " \---------\ \ "
PRINT " \ \/ "
PRINT " "
CLS
PRINT " / "
PRINT " __________ "
PRINT " @---[ \ "
PRINT " ---------\ \ "
PRINT " \ \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @--- [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @-- [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @- [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @[ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " /__________ "
PRINT " @ @-[ \ "
PRINT " \---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " / "
PRINT " /__________ "
PRINT " @ @--[ \ "
PRINT " \---------\ \ "
PRINT " \ \/ "
PRINT " "
CLS
PRINT " / "
PRINT " __________ "
PRINT " @ @---[ \ "
PRINT " ---------\ \ "
PRINT " \ \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @-- [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @- [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT "@ @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
CLS
PRINT " "
PRINT " __________ "
PRINT " @ [ \ "
PRINT " ---------\ \ "
PRINT " \/ "
PRINT " "
SOUND 650, 25
CLS
RANDOMIZE TIMER
a% = INT(RND * 6) + 1
PRINT " Elliott drained "; a%; " so far."
PRINT "Press 1 to attack"
INPUT a
IF a = 1 THEN 561
END
561 RANDOMIZE TIMER
c% = INT(RND * 3) + 1
LET z = b% + c%
PRINT " You drained "; c%; " and "; z; " total."
PRINT " Elliott attacks with shotgun!"
RANDOMIZE TIMER
e% = INT(RND * 6) + 1
LET x = e% + a%
PRINT " Elliott drained "; e%; " and "; x; " so far."
PRINT " Press 1 to attack"
INPUT a
IF a = 1 THEN 663
END
663 PRINT " You attack!"
RANDOMIZE TIMER
d% = INT(RND * 3) + 1
LET z = b% + c% + d%
PRINT " You drained "; d%; " and "; z; " HP so far."
PRINT " Elliott attacks!"
RANDOMIZE TIMER
i% = INT(RND * 6) + 1
LET x = a% + e% + i%
PRINT " Elliott drained "; i%; " and "; x; " HP so far."
PRINT "Press 1 to attack"
INPUT a
IF a = 1 THEN 664
END
664 PRINT " You attack!"
RANDOMIZE TIMER
f% = INT(RND * 3) + 1
LET z = b% + c% + d% + f%
PRINT " You drained "; f%; " and "; z; " HP so far."
IF z > 15 THEN 2000
IF z < 15 THEN BEEP
PRINT " Elliott attacks with shotgun!"
GOTO 1000
680 SCREEN 12
690 PRINT "*************************************************************"
700 PRINT " "
710 PRINT " "
720 PRINT " ____ "
730 PRINT " / \ /\ "
740 PRINT " [] / \ / \ "
750 PRINT " __[]__ [ ] / \ "
760 PRINT "[__ __] [ R.I.P ] / / "
770 PRINT " [] [ ] / / "
780 PRINT "\/\[]/\/\/\/\ [WARRIOR ] / / "
790 PRINT "/\/\/\/\ [ ] \/\ / "
800 PRINT " [ ] /\/\/\/ "
810 PRINT "/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/"
820 PLAY "CCDCECDDECD"
830 END
1000 RANDOMIZE TIMER
o% = INT(RND * 6) + 1
LET x = a% + e% + i% + o%
PRINT " Elliott drained "; o%; " and "; x; " so far."
IF x > 20 THEN 1010
IF x < 20 THEN 1020
1010 PRINT " Elliott kills you!"
GOTO 680
1020 PRINT " Press 1 to attack"
INPUT a
IF a = 1 THEN 1030
END
1030 RANDOMIZE TIMER
h% = INT(RND * 5) + 1
LET z = b% + c% + d% + f% + g% + h%
PRINT " You drained "; h%; " and "; z; " total HP."
IF z > 15 THEN 2000
IF z < 15 THEN BEEP
PRINT " Elliott attacks!"
RANDOMIZE TIMER
y% = INT(RND * 6) + 1
LET x = a% + e% + i% + o% + y%
IF x > 20 THEN 680
IF x < 20 THEN BEEP
PRINT " Elliott drained "; y%; " and "; x; " total HP."
1021 PRINT " Press 1 to attack"
INPUT a
IF a = 1 THEN 1031
END
1031 RANDOMIZE TIMER
J% = INT(RND * 5) + 1
LET z = b% + c% + d% + f% + g% + h% + J%
PRINT " You drained "; J%; " and "; z; " total HP."
IF z > 15 THEN 2000
IF z < 15 THEN BEEP
PRINT " Elliott attacks!"
RANDOMIZE TIMER
u% = INT(RND * 4) + 1
LET x = a% + e% + i% + o% + y% + u%
PRINT " Elliott drained "; u%; " and "; x; " total"
IF x > 20 THEN 680
IF x < 20 THEN BEEP
1022 PRINT " Press 1 to attack"
INPUT a
IF a = 1 THEN 1031
END
1032 RANDOMIZE TIMER
K% = INT(RND * 6) + 1
LET z = b% + c% + d% + f% + g% + h% + J% + K%
PRINT " You drained "; K%; " and "; z; " total HP."
IF z > 15 THEN 2000
IF z < 15 THEN BEEP
PRINT " Elliott attacks!"
RANDOMIZE TIMER
z% = INT(RND * 6) + 1
LET x = a% + e% + i% + o% + y% + u% + z%
IF x > 20 THEN 680
IF x < 20 THEN BEEP
2000 PRINT " Elliott seems really worn out! Good job! He tells his army"
PRINT "to go back to their secret base so he can get medical treatment."
PRINT " Press any key to continue"
INPUT a
PRINT " Your password is 'Jurassic Park'"
PRINT "Press a key to continue"
INPUT a
PRINT " After the battle you help clean up the town. You have a dinner at"
PRINT "Chuck's. Afterwards he says that Alex would like to talk to you."
PRINT "Press any key to comtinue"
INPUT a
2001 PRINT "Press 1 to teleport to Erink's Cave"
PRINT "Press 2 to teleport to Alex's home"
PRINT "Press 3 to go into Ogausis "
PRINT "Press 4 to teleport to Kinweke"
INPUT a
IF a = 1 THEN 2010
IF a = 2 THEN 2040
IF a = 3 THEN 2030
IF a = 4 THEN 2020
2010 PRINT " You teleport to Erink's cave. You see nothing new except for "
PRINT "the remains of the battle."
PRINT "Press 1 to teleport to Alex's home"
PRINT "Press 2 teleport to Ogausis "
PRINT "Press 3 to teleport to Kinweke"
INPUT a
IF a = 1 THEN 2040
IF a = 2 THEN 2001
IF a = 3 THEN 2020
2020 PRINT " You decide to teleport to Kinweke. You tell John about the"
PRINT "battle. He tells you to see Alex."
PRINT "Press 1 teleport to Ogausis "
INPUT a
IF a = 1 THEN 2001
2030 PRINT " You go into Ogausis. You get a warm welcome. You see that the"
PRINT "town is doing well. You eat & sleep at Chuck's house."
GOTO 2001
2040 PRINT " You decide to teleport to Alex's home."
PRINT " 'Hello, "; a$; ". I have been expecting you. Please come in.'"
PRINT " You go into the hut. 'What do you have to tell me?' you ask."
PRINT " 'It is almost time to wipe out all of the evil in this land. They"
PRINT "have their base on Mt. Pakyu. Ask for directions in the town Hojay. It"
PRINT "is on the other side of the mountains."
PRINT " 'I will go there right away,' you tell him."
PRINT " 'I will teleport you there. I have been there and as soon as you"
PRINT "get there you will be able to teleport there, too."
PRINT "Press a key to continue"
INPUT a
PRINT " Before you know it you are in the town, Hojay."
PRINT " 'Who are you,' a vilager asks."
PRINT " 'My name is, "; a$; ". I have come to ask directions to Mr. Pakyu."
PRINT " 'I know you!' he says excidenly. 'Come right this way. Talk to the"
PRINT "mayor."
PRINT " "
PRINT " 'Hello. My name is "; a$; "."
PRINT " 'I know your name. Mine is Mayor Jakeup. Take a seat."
PRINT " You sit down. The chair seems really soft. 'Can you tell me how"
PRINT "to get t--'"
PRINT " 'Mt. Pakyu,' Jakeup interrupts. 'It is to the North. All of the "
PRINT "evil is concentrated there. It will take alot to make it there."
PRINT " 'Thanks alot. I will be on my way!'"
PRINT " 'Be carefull. You are always welcome in this town.'"
PRINT "Press a key to continue"
INPUT a
town
mountain
SUB Elliott
END SUB
SUB Erink
4210 PRINT "You encounter the Erink!"
4220 PLAY "DDDEFFFBCDE"
4230 SCREEN 12
4240 PRINT " "
4250 PRINT " ____ "
4260 PRINT " /. . \ "
4270 PRINT " / \ "
4280 PRINT " [ ] "
4290 PRINT " [ @@@@@@ ] "
4300 PRINT " \ @ @ / "
4310 PRINT " /\ \____/ /\ "
4320 PRINT " \\ II // "
4330 PRINT " \\_II_// "
4340 PRINT " [ ] "
4350 PRINT " [__ __] "
4360 PRINT " //\\ "
4370 PRINT " / /\ \ "
4380 PRINT " /_/ \_\ "
4390 PRINT " "
4400 PRINT "Press 1 to attack"
4410 INPUT a
4420 IF a = 1 THEN BEEP
4430 PRINT "Before you attack Erink casts 'Weaken Foe.' You now have 15 HP "
4440 PRINT "left."
4450 PRINT "Press 1 to fight"
4451 INPUT a
4552 IF a = 1 THEN BEEP
4460 PRINT "You attack!"
4470 RANDOMIZE TIMER
4480 b% = INT(RND * 4) + 1
4490 PRINT "You drained "; b%; " total HP so far"
4500 PRINT "The Erink attacks!"
4510 RANDOMIZE TIMER
4520 a% = INT(RND * 6) + 1
4530 PRINT "Erink drained "; a%; " HP off of you!"
4540 PRINT "You have "; 15 - a%; " HP left"
4550 PRINT "Press 1 to attack"
4560 INPUT a
4570 IF a = 1 THEN BEEP
4580 PRINT "You attack!"
4590 RANDOMIZE TIMER
4600 c% = INT(RND * 5) + 1
4610 LET a = b% + c%
4620 PRINT "You drained "; a; " total HP so far"
4630 PRINT "Erink attacks!"
4640 RANDOMIZE TIMER
4650 e = INT(RND * 6) + 1
4660 LET e = a% + e%
4661 LET d = 15 - e
4670 PRINT "Erink drained "; e; " HP so far"
4680 PRINT "You have "; d; " total HP left"
4690 PRINT "Press 1 to attack"
4700 INPUT a
4710 IF a = 1 THEN BEEP
4720 PRINT "You attack!"
4730 RANDOMIZE TIMER
4740 LET d% = INT(RND * 4) + 1
4750 LET a = b% + c% + d%
4760 PRINT "You drained "; a; " total HP so far"
4770 IF a < 12 THEN BEEP
4780 IF a > 11 THEN 5140
4790 PRINT "Erink atacks!"
4800 RANDOMIZE TIMER
4810 i% = INT(RND * 6) + 1
4820 LET e = a% + e% + i%
4821 LET d = 15 - e
4830 PRINT "Erink drained "; e; " total HP so far"
4831 IF d > 14 THEN BEEP
4832 IF d < 15 THEN 4840
4833 PRINT "Erink has killed you!"
4834 END
4840 PRINT "You have "; d; " total HP left"
4850 PRINT "Press 1 to attack"
4860 INPUT a
4870 IF a = 1 THEN BEEP
4880 PRINT "You attack!"
4890 RANDOMIZE TIMER
4900 LET f% = INT(RND * 4) + 1
4910 LET a = b% + c% + d% + f%
4920 PRINT "You drained "; a; " total HP so far"
4930 IF a > 11 THEN 5140
4940 IF a < 12 THEN BEEP
4950 PRINT "Erink attacks!"
4960 RANDOMIZE TIMER
4970 LET o% = INT(RND * 7) + 1
4980 LET e = a% + e% + i% + o%
4990 PRINT "Erink drained "; e; " total HP off of you so far"
LET d = 15 - e
5010 IF d > 11 THEN 4833
5020 IF d < 12 THEN BEEP
5030 PRINT "Press 1 to attack"
5040 INPUT a
5050 IF a = 1 THEN BEEP
5060 PRINT "You attack!"
5070 RANDOMIZE TIMER
5080 g% = INT(RND * 5) + 1
5090 LET a = b% + c% + d% + f% + g%
5100 IF a > 11 THEN 5140
5110 IF a < 12 THEN BEEP
5111 PRINT "You drained "; a; "total HP so far"
5120 PRINT "Erink turns you to stone! You are dead (nice try, though!)."
5130 END
5140 PRINT "You finally defeated the Erink!"
5150 SOUND 510, 10
5160 SOUND 520, 10
5170 SOUND 530, 10
5180 SOUND 540, 10
5190 SOUND 530, 5
5200 SOUND 520, 5
5210 SOUND 510, 5
5220 SOUND 500, 5
5230 SOUND 490, 5
5340 SOUND 480, 5
5350 SOUND 470, 5
5360 SOUND 460, 5
5370 SOUND 450, 1
5380 SOUND 440, 1
5390 SOUND 450, 1
5400 SOUND 440, 1
5410 SOUND 430, 1
5420 SOUND 420, 1
5430 SOUND 410, 1
5440 SOUND 400, 1
5450 SOUND 390, 1
5460 SOUND 380, 1
5470 SOUND 1000, 5
5480 SOUND 1010, 5
5490 SOUND 50, 10
5500 SOUND 37, 5
END SUB
SUB intro
CLS
SCREEN 12
10 PRINT " "
20 PRINT " AG Software Presents "
30 PRINT " "
40 PRINT " An Alexander Golden Program "
50 PRINT " "
60 PLAY "C D E"
70 PLAY "E C D"
80 PRINT " "
90 PRINT "**************************************************************"
100 PRINT " "
110 PRINT " Battle "
120 PRINT " "
130 PRINT " Warrior "
140 PRINT " "
PRINT " Press any key to continue"
SparklePause
150 PRINT " "
PRINT " "
PRINT " "
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "Enter your name, Warrior"
INPUT a$
END SUB
SUB mountain
CLS
SOUND 1000, 5
PLAY "A"
SOUND 1050, 5
PLAY "b"
SOUND 1100, 5
PLAY "c"
SOUND 200, 5
PLAY "c"
SOUND 2005, 5
PLAY "cde"
SCREEN 1
LINE (237, 84)-(160, 77)
LINE (230, 84)-(160, 70)
LINE (223, 84)-(160, 63)
LINE (216, 84)-(160, 56)
LINE (209, 84)-(160, 49)
LINE (202, 84)-(160, 42)
LINE (195, 84)-(160, 35) 'Right half Mt. Pokyu
LINE (188, 84)-(160, 28)
LINE (181, 84)-(160, 21)
LINE (174, 84)-(160, 14)
LINE (167, 84)-(160, 7)
LINE (160, 84)-(160, 0)
LINE (76, 84)-(160, 77)
LINE (83, 84)-(160, 70)
LINE (90, 84)-(160, 63)
LINE (97, 84)-(160, 56)
LINE (104, 84)-(160, 49)
LINE (111, 84)-(160, 42) 'Left side of mountain
LINE (118, 84)-(160, 35)
LINE (125, 84)-(160, 28)
LINE (132, 84)-(160, 21)
LINE (139, 84)-(160, 14)
LINE (146, 84)-(160, 7)
LINE (153, 84)-(160, 0)
5000 PRINT "Press 1 to head up the mountain"
PRINT "Press 2 to retreat"
INPUT a
IF a = 1 THEN BEEP
IF a = 2 THEN town
PRINT " "
PRINT " "
PRINT " "
PRINT " "
PRINT " "
PRINT " "
PRINT " "
PRINT " "
PRINT " "
PRINT " "
PRINT " "
PRINT " "
5001 PRINT "Press 1 to continue up the mountain"
5002 PRINT "Press 2 to retreat"
INPUT a
IF a = 1 THEN BEEP
IF a = 2 THEN 5000
5003 PRINT "Press 1 to head up the montain"
PRINT "Press 2 to retreat"
INPUT a
IF a = 1 THEN BEEP
IF a = 2 THEN 5001
Slime
5004 PRINT "Press 1 to head up the monutain"
PRINT "Press 2 to retreat"
INPUT a
IF a = 1 THEN BEEP
IF a = 2 THEN 5003
Erink
5005 PRINT "Press 1 to continue"
PRINT "Press 2 to retreat"
INPUT a
IF a = 1 THEN BEEP
IF a = 2 THEN 5004
PRINT " You see a building in the distance."
PRINT "Press 1 to continue"
PRINT "Press 2 to retreat"
INPUT a
IF a = 1 THEN BEEP
IF a = 2 THEN 5005
PRINT " As you walk up to the base you are attacked by Elliott again!"
PRINT "Press a key to continue"
INPUT a
PRINT " Load 'Batwar 4.bas'!"
END SUB
SUB Slime
2350 PRINT "You encounter a slime (5 HP)!"
LINE (60, 80)-(240, 150), 1, BF
LINE (70, 150)-(90, 80)
LINE (90, 80)-(110, 150)
LINE (70, 150)-(110, 150)
PSET (80, 100)
PLAY "CFECFEC FA"
PRINT "Press 1 to attack the slime"
PRINT "Press 2 to make an attampt to run"
INPUT a
IF a = 1 THEN 2920
IF a = 2 THEN BEEP
RANDOMIZE TIMER
a% = INT(RND * 3) + 1
IF a% < 2 THEN BEEP
IF a% > 1 THEN 2590
2590 PRINT "You run away."
GOTO 2350
PRINT "You don't make it. Slime attacks!"
RANDOMIZE TIMER
b% = INT(RND * 2) = 1
IF b% > 19 THEN 2630
IF b% < 20 THEN 2660
2630 PRINT "Slime kills you. You are dead. Press 1 to continue."
INPUT a
IF a = 1 THEN END
2660 PRINT "Slime drained "; b%; " HP."
PRINT "You have "; 20 - b%; " HP left"
PRINT "Press 1 to fight"
INPUT a
IF a = 1 THEN BEEP
RANDOMIZE TIMER
c% = INT(RND * 4) + 1
IF c% > 4 THEN 3600
IF c% < 5 THEN BEEP
PRINT "You drained "; c%; " HP so far."
PRINT "Slime attacks"
RANDOMIZE TIMER
d% = INT(RND * 2) + 1
IF d% > 19 THEN 2630
IF d% < 20 THEN BEEP
LET a = d% + b%
PRINT "Slime drained "; a; " total HP so far."
PRINT "Press 1 to fight"
INPUT a
IF a = 1 THEN BEEP
RANDOMIZE TIMER
c% = INT(RND * 4) + 1
LET b = c% + e%
PRINT "You drained "; b; " total HP so far."
IF b > 4 THEN 3600
PRINT "Slime attacks. Slime poisions you. You die!"
PRINT "Press 1 to go on"
INPUT a
IF a = 1 THEN BEEP
END
2920 INPUT a
IF a = 1 THEN BEEP
RANDOMIZE TIMER
c% = INT(RND * 4) + 1
IF c% > 4 THEN 3600
IF c% < 5 THEN BEEP
PRINT "You attack!"
PRINT "You drained "; a%; " HP so far."
PRINT "Slime attacks"
RANDOMIZE TIMER
a% = INT(RND * 2) + 1
IF a% > 19 THEN 2630
IF a% < 20 THEN BEEP
PRINT "Slime drained "; a%; " total HP so far."
PRINT "You have "; 20 - a%; " HP left"
PRINT "Press 1 to attack"
INPUT a
IF a = 1 THEN BEEP
RANDOMIZE TIMER
e% = INT(RND * 4) + 1
IF e% > 4 THEN 3600
IF e% < 5 THEN BEEP
PRINT "You attack!"
LET b = e% + a%
PRINT "You drained "; b; " HP so far."
IF b > 4 THEN 3600
IF b < 5 THEN BEEP
PRINT "Slime attacks"
RANDOMIZE TIMER
g% = INT(RND * 2) + 1
IF g% > 19 THEN 2630
IF g% < 20 THEN BEEP
LET a = g% + h%
PRINT "Slime drained "; a; " total HP so far."
PRINT "You have "; 20 - a; " HP left"
PRINT "Press 1 to attack"
INPUT a
IF a = 1 THEN BEEP
RANDOMIZE TIMER
o% = INT(RND * 4) + 1
IF o% > 4 THEN 3600
IF o% < 5 THEN BEEP
PRINT "You attack!"
LET b = e% + a% + o%
PRINT "You drained "; b; " HP so far."
IF b > 4 THEN 3600
IF b < 5 THEN BEEP
PRINT "Slime attacks"
RANDOMIZE TIMER
n% = INT(RND * 2) + 1
IF n% > 19 THEN 2630
IF n% < 20 THEN BEEP
LET a = g% + h% + n%
PRINT "Slime drained "; a; " total HP so far."
IF a > 19 THEN 2630
IF a < 20 THEN BEEP
PRINT "You have "; 20 - a; " HP left"
PRINT "Press 1 to attack"
INPUT a
IF a = 1 THEN BEEP
RANDOMIZE TIMER
p% = INT(RND * 4) + 1
IF p% > 4 THEN 3600
IF p% < 5 THEN BEEP
PRINT "You attack!"
LET b = e% + a% + o% + p%
PRINT "You drained "; b; " HP so far."
IF b > 4 THEN 3600
IF b < 5 THEN BEEP
PRINT "Slime attacks and poisions you."
PRINT "Press 1 to continue"
INPUT a
IF a = 1 THEN END
3600 PRINT "You defeated the slime!"
PRINT "You have "; 20 - a; " total HP left"
PRINT "Press 1 to continue"
INPUT a
IF a = 1 THEN BEEP
END SUB
SUB SparklePause
DEFINT A-Z
'SparklePause:
' Creates flashing border for intro screen
a$ = "* * * * * * * * * * * * * * * * * "
WHILE INKEY$ <> "": WEND 'Clear keyboard buffer
WHILE INKEY$ = ""
FOR a = 1 TO 5
LOCATE 1, 1 'print horizontal sparkles
PRINT MID$(a$, a, 80);
LOCATE 22, 1
PRINT MID$(a$, 6 - a, 80);
FOR b = 2 TO 21 'Print Vertical sparkles
c = (a + b) MOD 5
IF c = 1 THEN
PRINT "*";
LOCATE 23 - b, 1
PRINT "*";
ELSE
PRINT " ";
LOCATE 23 - b, 1
PRINT " ";
END IF
NEXT b
NEXT a
WEND
END SUB
DEFSNG A-Z
SUB town
3001 PRINT "Press 1 to teleport to Erink's Cave"
PRINT "Press 2 to teleport to Alex's home"
PRINT "Press 3 Teleport to Ogausis "
PRINT "Press 4 to teleport to Kinweke"
PRINT "Press 5 to go into Hojay"
PRINT "Press 6 to head to Mt. Pokyu"
INPUT a
IF a = 1 THEN 3010
IF a = 2 THEN 3040
IF a = 3 THEN 3030
IF a = 4 THEN 3020
IF a = 5 THEN 3050
IF a = 6 THEN 4000
3010 PRINT " You teleport to Erink's cave. You see nothing new except for "
PRINT "the remains of the battle."
PRINT "Press 1 to teleport to Alex's home"
PRINT "Press 2 teleport to Ogausis "
PRINT "Press 3 to teleport to Kinweke"
PRINT "Press 4 to teleport to Hojay"
INPUT a
IF a = 1 THEN 3040
IF a = 2 THEN 3001
IF a = 3 THEN 3020
IF a = 4 THEN 3050
3050 PRINT " You go into Hojay. You eat and sleep. "
PRINT "Press 1 to teleport to Erink's Cave"
PRINT "Press 2 to teleport to Alex's home"
PRINT "Press 3 Teleport to Ogausis "
PRINT "Press 4 to teleport to Kinweke"
PRINT "Press 5 to go into Hojay"
PRINT "Press 6 to head to Mt. Pokyu"
INPUT a
IF a = 1 THEN 3010
IF a = 2 THEN 3040
IF a = 3 THEN 3030
IF a = 4 THEN 3020
IF a = 5 THEN 3050
IF a = 6 THEN 4000
3020 PRINT " You decide to teleport to Kinweke. You tell John about the"
PRINT "battle. He tells you to see Alex."
PRINT "Press 1 teleport to Ogausis "
INPUT a
IF a = 1 THEN 3001
3030 PRINT " You go into Ogausis. You get a warm welcome. You see that the"
PRINT "town is doing well. You eat & sleep at Chuck's house."
GOTO 3001
3040 PRINT " You decide to teleport to Alex's hut. No one seems to be there."
PRINT "Press 1 teleport to Ogausis "
PRINT "Press 2 to teleport to Kinweke"
PRINT "Press 3 to teleport to Erink's cave"
PRINT "Press 4 to teleport to Hojay"
INPUT a
IF a = 1 THEN 3001
IF a = 2 THEN 3010
IF a = 3 THEN 3020
IF a = 4 THEN 3050
4000 PRINT " You decide to start on your journey."
4001 PRINT "Press 1 to head to Mt. Pokyu"
PRINT "Press 2 to retreat"
INPUT a
IF a = 1 THEN BEEP
IF a = 2 THEN 3001
4002 PRINT "Press 1 to head to Mt. Pokyu"
PRINT "Press 2 to retreat"
INPUT a
IF a = 1 THEN BEEP
IF a = 2 THEN 4001
4003 PRINT "Press 1 to head to Mt. Pokyu"
PRINT "Press 2 to retreat"
INPUT a
IF a = 1 THEN BEEP
IF a = 2 THEN 4002
4004 PRINT "Press 1 to head to Mt. Pokyu"
PRINT "Press 2 to retreat"
INPUT a
IF a = 1 THEN BEEP
IF a = 2 THEN 4003
PRINT " You arrive at the base of the mountain"
PRINT "Press a kay to continue"
INPUT a
SCREEN 1
END SUB